160 POKE53280,15:POKE53281,0:POKE 53272,20
170 PRINT""
180 PRINTTAB(11):PRINT"[156] MULTI LABELS "
190 PRINT""
200 PRINT"[159]                     [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
210 PRINT"[158]                      AN[170][205][206][180][213][201]
220 [153]"                        +  SGNMID$TAN PROGRAM
230 PRINT"[159]                     [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
240 FOR N=1TO1000:NEXT N
250 PRINT"[147][158] MULTI LABELS "
260 PRINT"[153]DO YOU WISH TO POSITION YOUR LABELS AT"
270 PRINT"THIS TIME?  YOU WILL BE GIVEN ANOTHER "
280 PRINT"CHANCE TO POSITION BEFORE PRINTING.":PRINT
290 PRINT"[155]PRESS Y FOR YES OR N FOR NO."
300 INPUT A$:IF A$="Y"THEN GOTO 2000:IF A$="N" THEN 320
310 PRINT"[159]HOW MANY OF THIS LABEL SHALL I PRINT"
320 INPUT Z
330 PRINT"[158]WILL YOU PRINT IN ALL CAPS OR IN CAPS
340 [153]"AND LOWER CASE?  PRESS C OR L"
350 [133] X$
360 [153]"PRINTIF THIS IS THE FIRST RUN OF THE PRO-
370 PRINT"GRAM, PRESS ANY KEY TO CONTINUE.
380 [153]"IF THIS IS THE SECOND RUN,  PRESS THE
390 PRINT"POUND SIGN (\) TO PRINT YOUR LABELS.
400 [161] A$:[139] A$[178]""[167] 400
410 [139] A$[178]"\"[167] [153]" NOW PRINTING! WAIT":[137] 780
420 [153]"OPENTHIS PROGRAM WILL ALLOW YOU  TO PRINT
430 PRINT"THE NUMBER OF LABELS YOU SPECIFY ON THE
440 [153]"1525 PRINTER.  SINCE SOME PUNCTUATION
450 PRINT"CANNOT BE USED IN INPUT STATEMENTS, YOU
460 [153]"WILL BE ASKED TO CHANGE THE PROGRAM FOR
470 PRINT"INPUT OF YOUR LABEL COPY.  THIS WILL
480 [153]"ALSO ALLOW YOU TO CENTER OR SPACE YOUR
490 PRINT"COPY IN ANY MANNER DESIRED.
500 [153]"THE PROGRAM LINES TO CHANGE WILL BE
510 PRINT"LISTED FOR YOU.  CHANGES MAY BE MADE
520 [153]"WITH THE CURSOR CONTROL.  YOU WILL THEN
540 PRINT"RUN THE PROGRAM THE SECOND TIME FOR THE
550 [153]"ACTUAL PRINTING.
560 PRINT"[158]PRESS ANY KEY TO CONTINUE"
570 GET A$:IFA$=""THEN 570
580 PRINT"[147][153] PROGRAM INSTRUCTIONS "
590 PRINT"[159]IN THE LINES YOU WILL BE GIVEN, INSERT
600 [153]"YOUR OWN COPY AS PER THIS EXAMPLE:"
610 [153]"     450 PRINT#1,'    JOE SMITH
620 PRINT"     460 PRINT#1,'   206 WILSHIRE,
630 [153]"     470 PRINT#1,' HOUSTON, TX 70101
640 PRINT"      DO NOT CHANGE THE ABOVE LINES [159]"
650 PRINT"IN THE ABOVE EXAMPLE, AN APOSTROPHE HAS
660 [153]"BEEN SHOWN TO INDICATE AN ACTUAL QUOTA-
670 PRINT"TION MARK.  YOU MUST USE A QUOTATION
680 [153]"MARK IN YOUR PROGRAM CHANGES.
690 PRINT"[158]PRESS ANY KEY TO CONTINUE.
700 [161] B$: [139] B$[178]""[167] 700
710 [139] X$[178]"C"[167] [153]"LOADSYSMAKE YOUR PROGRAM CHANGES.":[137] 750
720 [139] X$[178]"L"[167] [153]"LOADSYS(null)AKE YOUR PROGRAM CHANGES.":[151] 53272,22:[137] 900
730 [153]"OPENATNFTER LISTING YOUR LABEL COPY, RERUN
740 PRINT"THE SECOND TIME TO PRINT.":LIST 870-900
750 PRINT"[159]AFTER LISTING YOUR LABEL COPY, RERUN
760 [153]"THE PROGRAM THE SECOND TIME TO PRINT."
770 [155] 800[171]830
780 [159] 1,4:[139] X$[178]"L"[167] [160] 1,4:[137] 950
790 [129] CT [178] 1 [164] Z
800 [152]1,[163]6)"
810 PRINT#1,TAB(6)"
820 [152]1,[163]6)"
830 PRINT#1,TAB(6)"
840 [152]1:[152]1:[152]1:[152]1:[152]1:[130] CT
850 [153]"CONTDO YOU WISH TO PRINT MORE LABELS?  IF
860 PRINT"YES PRESS Y AND IF NO PRESS N.
870 [161] A$:[139]A$[178]""[167] 870
880 [139] A$[178]"Y"[167] 710
890 [139] A$[178]"N"[167] [160] 1,4,14:[128]
900 [153]"AFTER LISTING THE LABEL COPY, RERUN THE
910 PRINT"PROGRAM THE SECOND TIME TO PRINT."
920 LIST 970-1000
930 CLOSE 1,4:END
940 GOTO 710
950 OPEN 1,4
960 FOR CT = 1 TO Z
970 PRINT#1,TAB(6)"
980 [152]1,[163]6)"
990 PRINT#1,TAB(6)"
1000 [152]1,[163]6)
1010 [152]1:[152]1:[152]1:[152]1:[152]1
1020 [130] CT
1030 [153]"OPENDO YOU WISH TO PRINT MORE LABELS? PRESS
1040 PRINT"Y FOR YES AND N FOR NO.
1050 [133] A$
1060 [139] A$[178]"N"[167] [160] 1,4,7:[128]
1070 [139] A$[178]"Y"[167] [153]"HOW MANY OF THIS LABEL SHALL I PRINT"
1080 [133] Z
1090 [137] 720
2000 [153]"LOADPRINT":[159] 1,4
2010 [153]"WHEN YOU HITSYS RETURNPRINT, YOUR SET-UP LINES"
2020 [153]"WILL BE PRINTED ON THE PRINTER.  MAKE ""
2030 PRINT"YOUR LABEL ADJUSTMENT AS NECESSARY.
2040 [153]"LISTIF YOUR LABEL WILL ONLY OCCUPY THREE
2050 PRINT"LINES, ADJUST THE POSITION ACCORDINGLY.
2060 [161] A$:[139] A$[178]""[167] 2060
2070 [153]" PRINTING SET-UP LINES OPEN"
2080 [152]1,[163]6)"----------FIRST LINE----------"
2090 [152]1,[163]6)"------------------------------"
2100 [152]1,[163]6)"------------------------------"
2110 [152]1,[163]6)"----------FINAL LINE----------"
2120 [152]1:[152]1:[152]1:[152]1:[152]1:[152]1
2130 [153]"OPENPRESS R TO REPEAT LINES OR C TO CON-"
2140 [153]"TINUE PROGRAM."
2150 [133] A$
2160 [139] A$[178]"R"[167] [137] 2070
2170 [139] A$[178]"C"[167] [160] 1,4,14:[137] 310
2180 [143]:         BY BOB MCCLAIN
2190 [143]:           RTE. BOX 1178
2200 [143]:         HEMPHILL TX 75948